home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / biomrf.zip / VTRPLOT.INC < prev   
Text File  |  1988-05-11  |  943b  |  27 lines
  1. ' Subroutine VECTORPLOT
  2. ' This routine does the screen plot for each biomorph vector as BIOPLOT
  3. ' generates it. Parameters are the vector array (only one part of this is
  4. ' used at each call, but as it is passed as a global variable and not
  5. ' copied, this does not matter in execution time); the y coordinate of the
  6. ' first branch (because each morph has a vertical mirror plane and only one
  7. ' side is actually stored, the other side being calculated from the
  8. ' reflection of this vector in the plane) and the pointer to the vector
  9. ' (in the vector array) being plotted.
  10.  
  11. SUB VECTORPLOT(posns%(2),reflec%,vctr%)
  12.  
  13. local x%,y%,x1%
  14.  
  15. x% = posns%(vctr%,1)-posns%(vctr%,3)*sin(posns%(vctr%,4)/6.28319)
  16. y% = posns%(vctr%,2)+posns%(vctr%,3)*cos(posns%(vctr%,4)/6.28319)
  17.  
  18. line (posns%(vctr%,1),posns%(vctr%,2))-(x%,y%),15
  19.  
  20. x% = 2*reflec% - x%
  21. x1% = 2*reflec% - posns%(vctr%,1)
  22.  
  23. line (x1%,posns%(vctr%,2))-(x%,y%),15
  24.  
  25. end sub
  26.  
  27.